Interactive Map

Table

## Table 1

df_table <- nyc_squirrels_clean %>% 
  select(running, chasing,climbing, eating, foraging, kuks, quaas, moans, tail_flags, tail_twitches, indifferent, runs_from)

df_table_2 <- df_table %>% 
  pivot_longer(-running, names_to = "activity", values_to = "true_false")



  
chasing <- nyc_squirrels_clean %>%
  group_by(chasing) %>% 
  summarize(count = n())

climbing <- nyc_squirrels_clean %>%
  group_by(climbing) %>% 
  summarize(count = n())

eating <- nyc_squirrels_clean %>%
  group_by(eating) %>% 
  summarize(count = n())

kuks <- nyc_squirrels_clean %>%
  group_by(kuks) %>% 
  summarize(count = n())

quaas <- nyc_squirrels_clean %>%
  group_by(quaas) %>% 
  summarize(count = n())

moans <- nyc_squirrels_clean %>%
  group_by(moans) %>% 
  summarize(count = n())

tail_flags <- nyc_squirrels_clean %>%
  group_by(tail_flags) %>% 
  summarize(count = n())

tail_twitches <- nyc_squirrels_clean %>%
  group_by(tail_twitches) %>% 
  summarize(count = n())

indifferent <- nyc_squirrels_clean %>%
  group_by(indifferent) %>% 
  summarize(count = n())

runs_from <- nyc_squirrels_clean %>%
  group_by(runs_from) %>% 
  summarize(count = n())

Plot